home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / devel / vbcc-68k-src / machines / amiga68k / libsrc / amigalib / callhook.s < prev    next >
Text File  |  1999-01-01  |  351b  |  25 lines
  1.     section "CODE",code
  2.     cnop    0,4
  3.     xdef    _CallHook
  4.     xdef    _CallHookA
  5.  
  6. _CallHook
  7.     lea     12(a7),a1
  8.     bra     L_CallHook
  9.  
  10. _CallHookA
  11.     move.l  12(a7),a1
  12.  
  13. L_CallHook
  14.     movem.l a2/a6,-(a7)
  15.     move.l  12(a7),a0
  16.     move.l  16(a7),a2
  17.     bsr     L_callit
  18.     movem.l (a7)+,a2/a6
  19.     rts
  20.  
  21. L_callit
  22.     move.l  8(a0),-(a7)
  23.     rts
  24.  
  25.